Developer CD Series 1994 November: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / Memory.p < prev next >
MacBinary | 1993-06-15 | 3.6 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jun 15 12:16:56 1993, modified Tue Jun 15 12:16:56 1993, creator 'MPS ', type ASCII, 3068 bytes "Memory.p" , at 0xc7c 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 4d 65 6d 6f 72 79 | 2e 70 00 00 00 00 00 00 |..Memory|.p......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b fc 00 | 00 01 ac a8 43 a6 78 a8 |........|....C.x.|
|00000060| 43 a6 78 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.x.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ba 08 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 4d 65 | 6d 6f 72 79 2e 70 0d 3b |File: Me|mory.p.;|
|000000c0| 0d 3b 0d 3b 20 43 6f 70 | 79 72 69 67 68 74 20 41 |.;.; Cop|yright A|
|000000d0| 70 70 6c 65 20 43 6f 6d | 70 75 74 65 72 2c 20 49 |pple Com|puter, I|
|000000e0| 6e 63 2e 20 31 39 38 36 | 2d 39 31 0d 3b 20 41 6c |nc. 1986|-91.; Al|
|000000f0| 6c 20 52 69 67 68 74 73 | 20 52 65 73 65 72 76 65 |l Rights| Reserve|
|00000100| 64 0d 3b 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |d.;.****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 7d 0d 0d 55 4e 49 54 20 | 4d 45 4d 4f 52 59 3b 0d |}..UNIT |MEMORY;.|
|00000140| 49 4e 54 45 52 46 41 43 | 45 0d 55 53 45 53 20 54 |INTERFAC|E.USES T|
|00000150| 59 50 45 53 2c 4d 49 53 | 43 54 4f 4f 4c 3b 0d 43 |YPES,MIS|CTOOL;.C|
|00000160| 4f 4e 53 54 0d 0d 7b 20 | 45 72 72 6f 72 20 43 6f |ONST..{ |Error Co|
|00000170| 64 65 73 20 7d 0d 6d 65 | 6d 45 72 72 20 3d 20 24 |des }.me|mErr = $|
|00000180| 30 32 30 31 3b 20 20 7b | 20 75 6e 61 62 6c 65 20 |0201;  {| unable |
|00000190| 74 6f 20 61 6c 6c 6f 63 | 61 74 65 20 62 6c 6f 63 |to alloc|ate bloc|
|000001a0| 6b 20 7d 0d 65 6d 70 74 | 79 45 72 72 20 3d 20 24 |k }.empt|yErr = $|
|000001b0| 30 32 30 32 3b 20 20 7b | 20 69 6c 6c 65 67 61 6c |0202;  {| illegal|
|000001c0| 20 6f 70 65 72 61 74 69 | 6f 6e 2c 20 65 6d 70 74 | operati|on, empt|
|000001d0| 79 20 68 61 6e 64 6c 65 | 20 7d 0d 6e 6f 74 45 6d |y handle| }.notEm|
|000001e0| 70 74 79 45 72 72 20 3d | 20 24 30 32 30 33 3b 20 |ptyErr =| $0203; |
|000001f0| 20 7b 20 61 6e 20 65 6d | 70 74 79 20 68 61 6e 64 | { an em|pty hand|
|00000200| 6c 65 20 77 61 73 20 65 | 78 70 65 63 74 65 64 20 |le was e|xpected |
|00000210| 66 6f 72 20 74 68 69 73 | 20 6f 70 65 72 61 74 69 |for this| operati|
|00000220| 6f 6e 20 7d 0d 6c 6f 63 | 6b 45 72 72 20 3d 20 24 |on }.loc|kErr = $|
|00000230| 30 32 30 34 3b 20 20 7b | 20 69 6c 6c 65 67 61 6c |0204;  {| illegal|
|00000240| 20 6f 70 65 72 61 74 69 | 6f 6e 20 6f 6e 20 61 20 | operati|on on a |
|00000250| 6c 6f 63 6b 65 64 20 62 | 6c 6f 63 6b 20 7d 0d 70 |locked b|lock }.p|
|00000260| 75 72 67 65 45 72 72 20 | 3d 20 24 30 32 30 35 3b |urgeErr |= $0205;|
|00000270| 20 20 7b 20 61 74 74 65 | 6d 70 74 20 74 6f 20 70 |  { atte|mpt to p|
|00000280| 75 72 67 65 20 61 6e 20 | 75 6e 70 75 72 67 61 62 |urge an |unpurgab|
|00000290| 6c 65 20 62 6c 6f 63 6b | 20 7d 0d 68 61 6e 64 6c |le block| }.handl|
|000002a0| 65 45 72 72 20 3d 20 24 | 30 32 30 36 3b 20 20 7b |eErr = $|0206;  {|
|000002b0| 20 61 6e 20 69 6e 76 61 | 6c 69 64 20 68 61 6e 64 | an inva|lid hand|
|000002c0| 6c 65 20 77 61 73 20 67 | 69 76 65 6e 20 7d 0d 69 |le was g|iven }.i|
|000002d0| 64 45 72 72 20 3d 20 24 | 30 32 30 37 3b 20 20 7b |dErr = $|0207;  {|
|000002e0| 20 61 6e 20 69 6e 76 61 | 6c 69 64 20 6f 77 6e 65 | an inva|lid owne|
|000002f0| 72 20 49 44 20 77 61 73 | 20 67 69 76 65 6e 20 7d |r ID was| given }|
|00000300| 0d 61 74 74 72 45 72 72 | 20 3d 20 24 30 32 30 38 |.attrErr| = $0208|
|00000310| 3b 20 20 7b 20 6f 70 65 | 72 61 74 69 6f 6e 20 69 |;  { ope|ration i|
|00000320| 6c 6c 65 67 61 6c 20 6f | 6e 20 62 6c 6f 63 6b 20 |llegal o|n block |
|00000330| 77 69 74 68 20 67 69 76 | 65 6e 20 61 74 74 72 69 |with giv|en attri|
|00000340| 62 75 74 65 73 20 7d 0d | 0d 7b 20 48 61 6e 64 6c |butes }.|.{ Handl|
|00000350| 65 20 41 74 74 72 69 62 | 75 74 65 20 42 69 74 73 |e Attrib|ute Bits|
|00000360| 20 7d 0d 61 74 74 72 4e | 6f 50 75 72 67 65 20 3d | }.attrN|oPurge =|
|00000370| 20 24 30 30 30 30 3b 20 | 20 7b 20 4e 6f 74 20 70 | $0000; | { Not p|
|00000380| 75 72 67 65 61 62 6c 65 | 20 7d 0d 61 74 74 72 42 |urgeable| }.attrB|
|00000390| 61 6e 6b 20 3d 20 24 30 | 30 30 31 3b 20 20 7b 20 |ank = $0|001;  { |
|000003a0| 66 69 78 65 64 20 62 61 | 6e 6b 20 7d 0d 61 74 74 |fixed ba|nk }.att|
|000003b0| 72 41 64 64 72 20 3d 20 | 24 30 30 30 32 3b 20 20 |rAddr = |$0002;  |
|000003c0| 7b 20 66 69 78 65 64 20 | 61 64 64 72 65 73 73 20 |{ fixed |address |
|000003d0| 7d 0d 61 74 74 72 50 61 | 67 65 20 3d 20 24 30 30 |}.attrPa|ge = $00|
|000003e0| 30 34 3b 20 20 7b 20 70 | 61 67 65 20 61 6c 69 67 |04;  { p|age alig|
|000003f0| 6e 65 64 20 7d 0d 61 74 | 74 72 4e 6f 53 70 65 63 |ned }.at|trNoSpec|
|00000400| 20 3d 20 24 30 30 30 38 | 3b 20 20 7b 20 6d 61 79 | = $0008|;  { may|
|00000410| 20 6e 6f 74 20 75 73 65 | 20 73 70 65 63 69 61 6c | not use| special|
|00000420| 20 6d 65 6d 6f 72 79 20 | 7d 0d 61 74 74 72 4e 6f | memory |}.attrNo|
|00000430| 43 72 6f 73 73 20 3d 20 | 24 30 30 31 30 3b 20 20 |Cross = |$0010;  |
|00000440| 7b 20 6d 61 79 20 6e 6f | 74 20 63 72 6f 73 73 20 |{ may no|t cross |
|00000450| 62 61 6e 6b 73 20 7d 0d | 61 74 74 72 50 75 72 67 |banks }.|attrPurg|
|00000460| 65 31 20 3d 20 24 30 31 | 30 30 3b 20 20 7b 20 50 |e1 = $01|00;  { P|
|00000470| 75 72 67 65 20 6c 65 76 | 65 6c 20 31 20 7d 0d 61 |urge lev|el 1 }.a|
|00000480| 74 74 72 50 75 72 67 65 | 32 20 3d 20 24 30 32 30 |ttrPurge|2 = $020|
|00000490| 30 3b 20 20 7b 20 50 75 | 72 67 65 20 6c 65 76 65 |0;  { Pu|rge leve|
|000004a0| 6c 20 32 20 7d 0d 61 74 | 74 72 50 75 72 67 65 33 |l 2 }.at|trPurge3|
|000004b0| 20 3d 20 24 30 33 30 30 | 3b 20 20 7b 20 50 75 72 | = $0300|;  { Pur|
|000004c0| 67 65 20 6c 65 76 65 6c | 20 33 20 7d 0d 61 74 74 |ge level| 3 }.att|
|000004d0| 72 50 75 72 67 65 20 3d | 20 24 30 33 30 30 3b 20 |rPurge =| $0300; |
|000004e0| 20 7b 20 74 65 73 74 20 | 6f 72 20 73 65 74 20 62 | { test |or set b|
|000004f0| 6f 74 68 20 70 75 72 67 | 65 20 62 69 74 73 20 7d |oth purg|e bits }|
|00000500| 0d 61 74 74 72 48 61 6e | 64 6c 65 20 3d 20 24 31 |.attrHan|dle = $1|
|00000510| 30 30 30 3b 20 20 7b 20 | 62 6c 6f 63 6b 20 6f 66 |000;  { |block of|
|00000520| 20 6d 61 73 74 65 72 20 | 70 6f 69 6e 74 65 72 73 | master |pointers|
|00000530| 20 7d 0d 61 74 74 72 53 | 79 73 74 65 6d 20 3d 20 | }.attrS|ystem = |
|00000540| 24 32 30 30 30 3b 20 20 | 7b 20 73 79 73 74 65 6d |$2000;  |{ system|
|00000550| 20 68 61 6e 64 6c 65 20 | 7d 0d 61 74 74 72 46 69 | handle |}.attrFi|
|00000560| 78 65 64 20 3d 20 24 34 | 30 30 30 3b 20 20 7b 20 |xed = $4|000;  { |
|00000570| 6e 6f 74 20 6d 6f 76 61 | 62 6c 65 20 7d 0d 61 74 |not mova|ble }.at|
|00000580| 74 72 4c 6f 63 6b 65 64 | 20 3d 20 24 38 30 30 30 |trLocked| = $8000|
|00000590| 3b 20 20 7b 20 6c 6f 63 | 6b 65 64 20 7d 0d 50 52 |;  { loc|ked }.PR|
|000005a0| 4f 43 45 44 55 52 45 20 | 41 64 64 54 6f 4f 4f 4d |OCEDURE |AddToOOM|
|000005b0| 51 75 65 75 65 20 28 20 | 68 65 61 64 65 72 50 74 |Queue ( |headerPt|
|000005c0| 72 3a 50 74 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |r:Ptr)  |;.PROCED|
|000005d0| 55 52 45 20 42 6c 6f 63 | 6b 4d 6f 76 65 20 28 20 |URE Bloc|kMove ( |
|000005e0| 73 72 63 50 74 72 3a 50 | 74 72 3b 20 64 73 74 50 |srcPtr:P|tr; dstP|
|000005f0| 74 72 3a 50 74 72 3b 20 | 63 6f 75 6e 74 3a 4c 6f |tr:Ptr; |count:Lo|
|00000600| 6e 67 69 6e 74 29 20 20 | 3b 0d 50 52 4f 43 45 44 |ngint)  |;.PROCED|
|00000610| 55 52 45 20 43 68 65 63 | 6b 48 61 6e 64 6c 65 20 |URE Chec|kHandle |
|00000620| 28 20 74 68 65 48 61 6e | 64 6c 65 3a 48 61 6e 64 |( theHan|dle:Hand|
|00000630| 6c 65 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |le)  ;.P|ROCEDURE|
|00000640| 20 43 6f 6d 70 61 63 74 | 4d 65 6d 20 20 20 3b 0d | Compact|Mem   ;.|
|00000650| 50 52 4f 43 45 44 55 52 | 45 20 44 69 73 70 6f 73 |PROCEDUR|E Dispos|
|00000660| 65 41 6c 6c 20 28 20 75 | 73 65 72 49 44 3a 49 6e |eAll ( u|serID:In|
|00000670| 74 65 67 65 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |teger)  |;.PROCED|
|00000680| 55 52 45 20 44 69 73 70 | 6f 73 65 48 61 6e 64 6c |URE Disp|oseHandl|
|00000690| 65 20 28 20 74 68 65 48 | 61 6e 64 6c 65 3a 48 61 |e ( theH|andle:Ha|
|000006a0| 6e 64 6c 65 29 20 20 3b | 0d 46 55 4e 43 54 49 4f |ndle)  ;|.FUNCTIO|
|000006b0| 4e 20 46 69 6e 64 48 61 | 6e 64 6c 65 20 28 20 6c |N FindHa|ndle ( l|
|000006c0| 6f 63 61 74 69 6f 6e 50 | 74 72 3a 50 74 72 29 20 |ocationP|tr:Ptr) |
|000006d0| 3a 20 48 61 6e 64 6c 65 | 20 3b 0d 46 55 4e 43 54 |: Handle| ;.FUNCT|
|000006e0| 49 4f 4e 20 46 72 65 65 | 4d 65 6d 20 20 3a 20 4c |ION Free|Mem  : L|
|000006f0| 6f 6e 67 69 6e 74 20 3b | 0d 46 55 4e 43 54 49 4f |ongint ;|.FUNCTIO|
|00000700| 4e 20 47 65 74 48 61 6e | 64 6c 65 53 69 7a 65 20 |N GetHan|dleSize |
|00000710| 28 20 74 68 65 48 61 6e | 64 6c 65 3a 48 61 6e 64 |( theHan|dle:Hand|
|00000720| 6c 65 29 20 3a 20 4c 6f | 6e 67 69 6e 74 20 3b 0d |le) : Lo|ngint ;.|
|00000730| 50 52 4f 43 45 44 55 52 | 45 20 48 61 6e 64 54 6f |PROCEDUR|E HandTo|
|00000740| 48 61 6e 64 20 28 20 73 | 6f 75 72 63 65 48 61 6e |Hand ( s|ourceHan|
|00000750| 64 6c 65 3a 48 61 6e 64 | 6c 65 3b 20 64 65 73 74 |dle:Hand|le; dest|
|00000760| 48 61 6e 64 6c 65 3a 48 | 61 6e 64 6c 65 3b 20 63 |Handle:H|andle; c|
|00000770| 6f 75 6e 74 3a 4c 6f 6e | 67 69 6e 74 29 20 20 3b |ount:Lon|gint)  ;|
|00000780| 0d 50 52 4f 43 45 44 55 | 52 45 20 48 61 6e 64 54 |.PROCEDU|RE HandT|
|00000790| 6f 50 74 72 20 28 20 73 | 6f 75 72 63 65 48 61 6e |oPtr ( s|ourceHan|
|000007a0| 64 6c 65 3a 48 61 6e 64 | 6c 65 3b 20 64 65 73 74 |dle:Hand|le; dest|
|000007b0| 50 74 72 3a 50 74 72 3b | 20 63 6f 75 6e 74 3a 4c |Ptr:Ptr;| count:L|
|000007c0| 6f 6e 67 69 6e 74 29 20 | 20 3b 0d 50 52 4f 43 45 |ongint) | ;.PROCE|
|000007d0| 44 55 52 45 20 48 4c 6f | 63 6b 20 28 20 74 68 65 |DURE HLo|ck ( the|
|000007e0| 48 61 6e 64 6c 65 3a 48 | 61 6e 64 6c 65 29 20 20 |Handle:H|andle)  |
|000007f0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 48 4c 6f 63 |;.PROCED|URE HLoc|
|00000800| 6b 41 6c 6c 20 28 20 75 | 73 65 72 49 44 3a 49 6e |kAll ( u|serID:In|
|00000810| 74 65 67 65 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |teger)  |;.PROCED|
|00000820| 55 52 45 20 48 55 6e 6c | 6f 63 6b 20 28 20 74 68 |URE HUnl|ock ( th|
|00000830| 65 48 61 6e 64 6c 65 3a | 48 61 6e 64 6c 65 29 20 |eHandle:|Handle) |
|00000840| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 48 55 6e | ;.PROCE|DURE HUn|
|00000850| 6c 6f 63 6b 41 6c 6c 20 | 28 20 75 73 65 72 49 44 |lockAll |( userID|
|00000860| 3a 49 6e 74 65 67 65 72 | 29 20 20 3b 0d 46 55 4e |:Integer|)  ;.FUN|
|00000870| 43 54 49 4f 4e 20 4d 61 | 78 42 6c 6f 63 6b 20 20 |CTION Ma|xBlock  |
|00000880| 3a 20 4c 6f 6e 67 69 6e | 74 20 3b 0d 50 52 4f 43 |: Longin|t ;.PROC|
|00000890| 45 44 55 52 45 20 4d 4d | 42 6f 6f 74 49 6e 69 74 |EDURE MM|BootInit|
|000008a0| 20 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 4d |   ;.PRO|CEDURE M|
|000008b0| 4d 52 65 73 65 74 20 20 | 20 3b 0d 50 52 4f 43 45 |MReset  | ;.PROCE|
|000008c0| 44 55 52 45 20 4d 4d 53 | 68 75 74 44 6f 77 6e 20 |DURE MMS|hutDown |
|000008d0| 28 20 75 73 65 72 49 44 | 3a 49 6e 74 65 67 65 72 |( userID|:Integer|
|000008e0| 29 20 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 4d 4d |)  ;.FUN|CTION MM|
|000008f0| 53 74 61 72 74 55 70 20 | 20 3a 20 49 6e 74 65 67 |StartUp | : Integ|
|00000900| 65 72 20 3b 0d 46 55 4e | 43 54 49 4f 4e 20 4d 4d |er ;.FUN|CTION MM|
|00000910| 53 74 61 74 75 73 20 20 | 3a 20 42 6f 6f 6c 65 61 |Status  |: Boolea|
|00000920| 6e 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 4d 4d 56 |n ;.FUNC|TION MMV|
|00000930| 65 72 73 69 6f 6e 20 20 | 3a 20 49 6e 74 65 67 65 |ersion  |: Intege|
|00000940| 72 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 4e 65 77 |r ;.FUNC|TION New|
|00000950| 48 61 6e 64 6c 65 20 28 | 20 62 6c 6f 63 6b 53 69 |Handle (| blockSi|
|00000960| 7a 65 3a 4c 6f 6e 67 69 | 6e 74 3b 20 75 73 65 72 |ze:Longi|nt; user|
|00000970| 49 44 3a 49 6e 74 65 67 | 65 72 3b 20 61 74 74 72 |ID:Integ|er; attr|
|00000980| 69 62 75 74 65 73 3a 49 | 6e 74 65 67 65 72 3b 20 |ibutes:I|nteger; |
|00000990| 6c 6f 63 61 74 69 6f 6e | 50 74 72 3a 50 74 72 29 |location|Ptr:Ptr)|
|000009a0| 20 3a 20 48 61 6e 64 6c | 65 20 3b 0d 50 52 4f 43 | : Handl|e ;.PROC|
|000009b0| 45 44 55 52 45 20 50 74 | 72 54 6f 48 61 6e 64 20 |EDURE Pt|rToHand |
|000009c0| 28 20 73 6f 75 72 63 65 | 50 74 72 3a 50 74 72 3b |( source|Ptr:Ptr;|
|000009d0| 20 64 65 73 74 48 61 6e | 64 6c 65 3a 48 61 6e 64 | destHan|dle:Hand|
|000009e0| 6c 65 3b 20 63 6f 75 6e | 74 3a 4c 6f 6e 67 69 6e |le; coun|t:Longin|
|000009f0| 74 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |t)  ;.PR|OCEDURE |
|00000a00| 50 75 72 67 65 41 6c 6c | 20 28 20 75 73 65 72 49 |PurgeAll| ( userI|
|00000a10| 44 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 50 52 |D:Intege|r)  ;.PR|
|00000a20| 4f 43 45 44 55 52 45 20 | 50 75 72 67 65 48 61 6e |OCEDURE |PurgeHan|
|00000a30| 64 6c 65 20 28 20 74 68 | 65 48 61 6e 64 6c 65 3a |dle ( th|eHandle:|
|00000a40| 48 61 6e 64 6c 65 29 20 | 20 3b 0d 46 55 4e 43 54 |Handle) | ;.FUNCT|
|00000a50| 49 4f 4e 20 52 65 61 6c | 46 72 65 65 4d 65 6d 20 |ION Real|FreeMem |
|00000a60| 20 3a 20 4c 6f 6e 67 69 | 6e 74 20 3b 0d 50 52 4f | : Longi|nt ;.PRO|
|00000a70| 43 45 44 55 52 45 20 52 | 65 41 6c 6c 6f 63 48 61 |CEDURE R|eAllocHa|
|00000a80| 6e 64 6c 65 20 28 20 62 | 6c 6f 63 6b 53 69 7a 65 |ndle ( b|lockSize|
|00000a90| 3a 4c 6f 6e 67 69 6e 74 | 3b 20 75 73 65 72 49 44 |:Longint|; userID|
|00000aa0| 3a 49 6e 74 65 67 65 72 | 3b 20 61 74 74 72 69 62 |:Integer|; attrib|
|00000ab0| 75 74 65 73 3a 49 6e 74 | 65 67 65 72 3b 20 6c 6f |utes:Int|eger; lo|
|00000ac0| 63 61 74 69 6f 6e 50 74 | 72 3a 50 74 72 3b 20 74 |cationPt|r:Ptr; t|
|00000ad0| 68 65 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |heHandle|:Handle)|
|00000ae0| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 52 65 |  ;.PROC|EDURE Re|
|00000af0| 6d 6f 76 65 46 72 6f 6d | 4f 4f 4d 51 75 65 75 65 |moveFrom|OOMQueue|
|00000b00| 20 28 20 68 65 61 64 65 | 72 50 74 72 3a 50 74 72 | ( heade|rPtr:Ptr|
|00000b10| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 52 |)  ;.PRO|CEDURE R|
|00000b20| 65 73 74 6f 72 65 48 61 | 6e 64 6c 65 20 28 20 74 |estoreHa|ndle ( t|
|00000b30| 68 65 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |heHandle|:Handle)|
|00000b40| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 |  ;.PROC|EDURE Se|
|00000b50| 74 48 61 6e 64 6c 65 53 | 69 7a 65 20 28 20 6e 65 |tHandleS|ize ( ne|
|00000b60| 77 53 69 7a 65 3a 4c 6f | 6e 67 69 6e 74 3b 20 74 |wSize:Lo|ngint; t|
|00000b70| 68 65 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |heHandle|:Handle)|
|00000b80| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 |  ;.PROC|EDURE Se|
|00000b90| 74 50 75 72 67 65 20 28 | 20 6e 65 77 50 75 72 67 |tPurge (| newPurg|
|00000ba0| 65 4c 65 76 65 6c 3a 49 | 6e 74 65 67 65 72 3b 20 |eLevel:I|nteger; |
|00000bb0| 74 68 65 48 61 6e 64 6c | 65 3a 48 61 6e 64 6c 65 |theHandl|e:Handle|
|00000bc0| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |)  ;.PRO|CEDURE S|
|00000bd0| 65 74 50 75 72 67 65 41 | 6c 6c 20 28 20 6e 65 77 |etPurgeA|ll ( new|
|00000be0| 50 75 72 67 65 4c 65 76 | 65 6c 3a 49 6e 74 65 67 |PurgeLev|el:Integ|
|00000bf0| 65 72 3b 20 75 73 65 72 | 49 44 3a 49 6e 74 65 67 |er; user|ID:Integ|
|00000c00| 65 72 29 20 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |er)  ;.F|UNCTION |
|00000c10| 54 6f 74 61 6c 4d 65 6d | 20 20 3a 20 4c 6f 6e 67 |TotalMem|  : Long|
|00000c20| 69 6e 74 20 3b 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |int ;..F|UNCTION |
|00000c30| 53 65 74 48 61 6e 64 6c | 65 49 44 28 6e 65 77 49 |SetHandl|eID(newI|
|00000c40| 44 3a 69 6e 74 65 67 65 | 72 3b 20 74 68 65 48 61 |D:intege|r; theHa|
|00000c50| 6e 64 6c 65 3a 48 61 6e | 64 6c 65 29 3a 20 69 6e |ndle:Han|dle): in|
|00000c60| 74 65 67 65 72 3b 0d 0d | 49 4d 50 4c 45 4d 45 4e |teger;..|IMPLEMEN|
|00000c70| 54 41 54 49 4f 4e 0d 45 | 4e 44 2e 0d 00 00 00 00 |TATION.E|ND......|
|00000c80| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000c90| 3a 4c 6f 6e 67 69 6e 74 | 3b 20 75 73 65 72 49 44 |:Longint|; userID|
|00000ca0| 3a 49 6e 74 65 67 65 72 | 3b 20 61 74 74 72 69 62 |:Integer|; attrib|
|00000cb0| 08 4d 65 6d 6f 72 79 2e | 70 00 02 00 00 00 54 45 |.Memory.|p.....TE|
|00000cc0| 58 54 4d 50 53 20 01 00 | ff ff ff ff 00 00 00 00 |XTMPS ..|........|
|00000cd0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 a1 49 b4 90 00 00 | 0b fc 00 00 01 ac 75 65 |...I....|......ue|
|00000d00| 20 28 20 68 65 61 64 65 | 72 50 74 72 3a 50 74 72 | ( heade|rPtr:Ptr|
|00000d10| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 52 |)  ;.PRO|CEDURE R|
|00000d20| 65 73 74 6f 72 65 48 61 | 6e 64 6c 65 20 28 20 74 |estoreHa|ndle ( t|
|00000d30| 68 65 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |heHandle|:Handle)|
|00000d40| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 |  ;.PROC|EDURE Se|
|00000d50| 74 48 61 6e 64 6c 65 53 | 69 7a 65 20 28 20 6e 65 |tHandleS|ize ( ne|
|00000d60| 77 53 69 7a 65 3a 4c 6f | 6e 67 69 6e 74 3b 20 74 |wSize:Lo|ngint; t|
|00000d70| 68 65 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 29 |heHandle|:Handle)|
|00000d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 33 |...H..Mo|naco...3|
|00000d90| fc c4 00 30 00 00 00 a4 | 00 0a 00 13 00 00 02 fb |...0....|........|
|00000da0| 02 1f 00 82 00 00 00 06 | 00 04 00 3c 00 24 01 53 |........|...<.$.S|
|00000db0| 01 bd 00 3c 00 24 01 53 | 01 bd a4 a1 c9 96 00 00 |...<.$.S|........|
|00000dc0| 0b e7 00 00 0b e7 00 00 | 08 85 01 00 00 00 00 1e |........|........|
|00000dd0| 00 3c 00 24 01 53 01 bd | 00 3c 00 24 01 53 01 bd |.<.$.S..|.<.$.S..|
|00000de0| 00 00 08 85 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00000e00| df d8 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000e10| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+